home *** CD-ROM | disk | FTP | other *** search
/ Video Dictionary 2 / Video Dictionary 2 - Disc 1.iso / pc / Others / Openend.Dxr / 00001_prepareMovie.ls next >
Encoding:
Text File  |  1999-06-11  |  953 b   |  39 lines
  1. on prepareMovie
  2.   global gxmui
  3.   set gxmui to new(xtra("MUI"))
  4.   set lqtversion to getqtversionandxtrastatus()
  5.   if (the platform contains "windows") and (getAt(lqtversion, 2) < 3) then
  6.     alertthismoviemustneedqt3()
  7.     quit()
  8.   else
  9.     if getAt(lqtversion, 2) < 0 then
  10.       set qtversion to getAt(lqtversion, 1)
  11.       if qtversion = 0 then
  12.         alertthismoviemustneedqt3()
  13.         quit()
  14.       else
  15.         if qtversion = 9 then
  16.           alertqtnotinstalledproperly()
  17.           quit()
  18.         end if
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.  
  24. on alertthismoviemustneedqt3
  25.   showwarningdialog("QuickTime Required", "You must install QuickTime3.0 or later.")
  26. end
  27.  
  28. on alertqtnotinstalledproperly
  29.   showwarningdialog("QuickTime has problem", "QuickTime did not installed properly. Please full install QuickTime and try again.")
  30. end
  31.  
  32. on wait sec
  33.   startTimer()
  34.   repeat while the timer < (60 * sec)
  35.     put the timer
  36.     put "wait loop"
  37.   end repeat
  38. end
  39.